home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Precision Software Appli…tions Silver Collection 1
/
Precision Software Applications Silver Collection Volume One (PSM) (1993).iso
/
windows
/
games
/
bjack1.exe
/
INSTALL.GBL
< prev
next >
Wrap
Text File
|
1991-11-19
|
27KB
|
599 lines
'*****************************************************************
'** Microsoft Visual Basic LAN Manager Toolkit **
'** Copyright(c) Microsoft Corp., 1991 **
'*****************************************************************
'********************************************************************
'* *
'* About this file ... NETCONS.TXT *
'* *
'* This file contains constants used throughout the LAN Manager *
'* API header files. It should be included in the global module *
'* of any Visual Basic program that is going to call a LAN Manager *
'* API. *
'* *
'********************************************************************
Global Const ASSUMEBLEN = 255 '* this constant is used for the
' record structure field with
' unknown size (mostly list of
' multiple information *
Global Const ASSUMESLEN = 50 '* this constant is used for the
' record structure field with
' unknown size (mostly single infor-
' mation *
Global Const CNLEN = 15 '* Computer name length *
Global Const CNLEN8 = (CNLEN + 1) * 8 - 1 '* Maximum 8 computer names *
' length separated by comma *
Global Const UNCLEN = CNLEN + 2 '* UNC computer name length *
Global Const NNLEN = 12 '* 8.3 Net name length *
Global Const RMLEN = UNCLEN + 1 + NNLEN '* Maximum remote name length *
Global Const SNLEN = 15 '* Service name length *
Global Const STXTLEN = 63 '* Service text length *
Global Const PATHLEN = 260
Global Const VBLMPATHLEN = PATHLEN - 1 '* VB pathlen without terminating NULL
Global Const PRINTERNAME_SIZE = 32 '* printer name
Global Const PRINTERNAME_SIZE10 = (PRINTERNAME_SIZE + 1) * 10 - 1
'* 10 printer names separated by commas
Global Const DRIV_NAME_SIZE = 8 '* device driver name
Global Const DRIV_NAME_SIZE10 = (DRIV_NAME_SIZE + 1) * 10 - 1
'* 10 device driver name w/ commas
Global Const DRIV_DEVICENAME_SIZE = 31 '* Device driver data string
Global Const DEVLEN = 8 '* Device name length *
Global Const DNLEN = CNLEN '* Maximum domain name length *
Global Const DNLEN10 = (DNLEN + 1) * 10 - 1 '* Maximum 10 domain names *
'* length separated by space *
Global Const CCHMAXPATHCOMP = 256 '* queue name
Global Const EVLEN = 16 '* event name length *
Global Const JOBSTLEN = 80 '* status length in print job *
Global Const AFLEN = 64 '* Maximum length of alert *
'* names field *
Global Const UNLEN = 20 '* Maximum user name length *
Global Const GNLEN = UNLEN '* Group name *
Global Const PWLEN = 14 '* Maximum password length *
Global Const SHPWLEN = 8 '* Share password length *
Global Const CLTYPE_LEN = 12 '* Length of client type string *
Global Const MAXCOMMENTSZ = 48 '* server & share comment length *
Global Const QNLEN = 12 '* Queue name maximum length *
Global Const PDLEN = 8 '* Print destination length *
Global Const PDLEN10 = (PDLEN + 1) * 10 - 1 '* max of 10 Print destination
' length separated by space *
Global Const DTLEN = 9 '* Spool file data type *
'* e.g. IBMQSTD,IBMQESC,IBMQRAW *
Global Const ALERTSZ = 128 '* size of alert string in server *
Global Const INTSIZE = 2
Global Const LONGSIZE = 4
Global Const SINGLESIZE = 4
Global Const DOUBLESIZE = 8
Global Const MAXDEVENTRIES = INTSIZE * 8 '* Max number of device entries *
'* We use int bitmap to represent *
Global Const HOURS_IN_WEEK = 168 '* for struct user_info_2 in UAS *
Global Const MAXWORKSTATIONS = 8 '* for struct user_info_2 in UAS *
Global Const NETBIOS_NAME_LEN = 16 '* NetBIOS net name *
'*
'* Constants used with encryption
'*
Global Const CRYPT_KEY_LEN = 7
Global Const CRYPT_TXT_LEN = 8
Global Const ENCRYPTED_PWLEN = 16
Global Const SESSION_PWLEN = 24
Global Const SESSION_CRYPT_KLEN = 21
'*
'* Value to be used with SetInfo calls to allow setting of all
'* settable parameters (parmnum zero option)
'*
'*
'* Message File Names
'*
Global Const MESSAGE_FILE = "NETPROG\\NET.MSG"
Global Const MESSAGE_FILENAME = "NET.MSG"
Global Const OS2MSG_FILE = "NETPROG\\OSO001.MSG"
Global Const OS2MSG_FILENAME = "OSO001.MSG"
Global Const HELP_MSG_FILE = "NETPROG\\NETH.MSG"
Global Const HELP_MSG_FILENAME = "NETH.MSG"
Global Const NMP_MSG_FILE = "NETPROG\\NMP.MSG"
Global Const NMP_MSG_FILENAME = "NMP.MSG"
Global Const MESSAGE_FILE_BASE = "NETPROG\\NET00000"
Global Const MESSAGE_FILE_EXT = ".MSG"
Global Const NMP_LOW_END = 230
Global Const NMP_HIGH_END = 240
Global Const NULL = 0
Global Const PUNAVAIL = NULL
'*****************************************************************
'** Microsoft Visual Basic LAN Manager Toolkit **
'** Copyright(c) Microsoft Corp., 1991 **
'*****************************************************************
'********************************************************************
'* *
'* About this file ... SERVER.TXT *
'* *
'* This file contains information about the NetServer APIs. *
'* *
'* Function prototypes. *
'* *
'* Data structure templates. *
'* *
'* Definition of special values. *
'* *
'* *
'* NOTE: You must include NETCONS.TXT before this file, since this*
'* file depends on values defined in NETCONS.TXT. *
'* *
'********************************************************************
'****************************************************************
'* *
'* Function prototypes *
'* *
'****************************************************************
Declare Function NetServerAdminCommand% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszCommand$, psResult%, ByVal pszBuffer$, ByVal cbBuffer%, pcbReturned%, pcbTotalAvail%)
Declare Function NetServerDiskEnum% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcEntriesRead%, pcTotalAvail%)
'pbBuffer will contain consecutive ASCIIZ strings indicating
'the list of disk drive names. There is currently no direct
'method for handling this type of buffer construct.
Declare Function NetServerEnum2% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcEntriesRead%, pcTotalAvail%, ByVal flServerType&, ByVal pszDomain$)
Declare Function NetServerGetInfo% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcbTotalAvail%)
Declare Function NetServerSetInfo% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, ByVal sParmNum%)
'****************************************************************
'* *
'* Data structure templates *
'* *
'****************************************************************
Type server_info_0
sv0_name As String * CNLEN '* Server name *
End Type '* server_info_0 *
Global Const FMT_server_info_0 = "S15"
Type server_info_1
sv1_name As String * CNLEN
sv1_version_major As String * 1 '* Major version # of net *
sv1_version_minor As String * 1 '* Minor version # of net *
sv1_type As Long '* Server type *
sv1_comment As String
End Type '* server_info_1 *
Global Const FMT_server_info_1 = "S15B1B1LP48"
Type server_info_2
sv2_name As String * CNLEN
sv2_version_major As String * 1
sv2_version_minor As String * 1
sv2_type As Long
sv2_comment As String
sv2_ulist_mtime As Long'* User list, last modification time *
sv2_glist_mtime As Long '* Group list, last modification time *
sv2_alist_mtime As Long '* Access list, last modification time *
sv2_users As Integer '* max number of users allowed *
sv2_disc As Integer '* auto-disconnect timeout(in minutes) *
sv2_alerts As String '* alert names (semicolon separated)
sv2_security As Integer '* SV_USERSECURITY or SV_SHARESECURITY *
sv2_auditing As Integer '* 0 = no auditing; nonzero = auditing *
sv2_numadmin As Integer '* max number of administrators allowed *
sv2_lanmask As Integer '* bit mask representing the srv'd nets *
sv2_hidden As Integer '* 0 = visible; nonzero = hidden *
sv2_announce As Integer '* visible server announce rate (sec) *
sv2_anndelta As Integer '* announce randomize interval (sec) *
sv2_guestacct As String * UNLEN '* name of guest account *
sv2_pad1 As String * 1 '* Word alignment pad byte *
sv2_userpath As String '* ASCIIZ path to user directories*
sv2_chdevs As Integer '* max # shared character devices *
sv2_chdevq As Integer '* max # character device queues *
sv2_chdevjobs As Integer '* max # character device jobs *
sv2_connections As Integer '* max # of connections *
sv2_shares As Integer '* max # of shares *
sv2_openfiles As Integer '* max # of open files *
sv2_sessopens As Integer '* max # of open files per session *
sv2_sessvcs As Integer '* max # of virtual circuits per client *
sv2_sessreqs As Integer '* max # of simul. reqs. from a client *
sv2_opensearch As Integer '* max # of open searches *
sv2_activelocks As Integer '* max # of active file locks *
sv2_numreqbuf As Integer '* number of server (standard) buffers *
sv2_sizreqbuf As Integer '* size of svr (standard) bufs (bytes) *
sv2_numbigbuf As Integer '* number of big (64K) buffers *
sv2_numfiletasks As Integer'* number of file worker processes *
sv2_alertsched As Integer '* alert counting interval (minutes) *
sv2_erroralert As Integer '* error log alerting threshold *
sv2_logonalert As Integer '* logon violation alerting threshold *
sv2_accessalert As Integer '* access violation alerting threshold *
sv2_diskalert As Integer '* low disk space alert threshold (KB) *
sv2_netioalert As Integer '* net I/O error ratio alert threshold *
'* (tenths of a percent) *
sv2_maxauditsz As Integer '* Maximum audit file size (KB) *
sv2_srvheuristics As String '* performance related server switches*
End Type '* server_info_2 *
Global Const FMT_server_info_2 = "S15B1B1LP48LLLIIP255IIIIIIIS20B1P259IIIIIIIIIIIIIIIIIIIIIIP20"
Type server_info_3
sv3_name As String * CNLEN
sv3_version_major As String * 1
sv3_version_minor As String * 1
sv3_type As Long
sv3_comment As String
sv3_ulist_mtime As Long '* User list, last modification time *
sv3_glist_mtime As Long '* Group list, last modification time *
sv3_alist_mtime As Long '* Access list, last modification time *
sv3_users As Integer '* max number of users allowed *
sv3_disc As Integer '* auto-disconnect timeout(in minutes) *
sv3_alerts As String '* alert names (semicolon separated)
sv3_security As Integer '* SV_USERSECURITY or SV_SHARESECURITY *
sv3_auditing As Integer '* 0 = no auditing; nonzero = auditing *
sv3_numadmin As Integer '* max number of administrators allowed *
sv3_lanmask As Integer '* bit mask representing the srv'd nets *
sv3_hidden As Integer '* 0 = visible; nonzero = hidden *
sv3_announce As Integer '* visible server announce rate (sec) *
sv3_anndelta As Integer '* announce randomize interval (sec) *
sv3_guestacct As String * UNLEN '* name of guest account *
sv3_pad1 As String * 1 '* Word alignment pad byte *
sv3_userpath As String '* ASCIIZ path to user directories*
sv3_chdevs As Integer '* max # shared character devices *
sv3_chdevq As Integer '* max # character device queues *
sv3_chdevjobs As Integer '* max # character device jobs *
sv3_connections As Integer '* max # of connections *
sv3_shares As Integer '* max # of shares *
sv3_openfiles As Integer '* max # of open files *
sv3_sessopens As Integer '* max # of open files per session *
sv3_sessvcs As Integer '* max # of virtual circuits per client *
sv3_sessreqs As Integer '* max # of simul. reqs. from a client *
sv3_opensearch As Integer '* max # of open searches *
sv3_activelocks As Integer '* max # of active file locks *
sv3_numreqbuf As Integer '* number of server (standard) buffers *
sv3_sizreqbuf As Integer '* size of svr (standard) bufs (bytes) *
sv3_numbigbuf As Integer '* number of big (64K) buffers *
sv3_numfiletasks As Integer'* number of file worker processes *
sv3_alertsched As Integer '* alert counting interval (minutes) *
sv3_erroralert As Integer '* error log alerting threshold *
sv3_logonalert As Integer '* logon violation alerting threshold *
sv3_accessalert As Integer '* access violation alerting threshold *
sv3_diskalert As Integer '* low disk space alert threshold (KB) *
sv3_netioalert As Integer '* net I/O error ratio alert threshold *
'* (tenths of a percent) *
sv3_maxauditsz As Integer '* Maximum audit file size (KB) *
sv3_srvheuristics As String '* performance related server switches*
sv3_auditedevents As Long '* Audit event control mask *
sv3_autoprofile As Integer '* (0,1,2,3) = (NONE,LOAD,SAVE,or BOTH) *
sv3_autopath As String
'* file pathname (where to load & save) *
End Type '* server_info_3 *
'BUGBUG We don't know how long the alerts string is
Global Const FMT_server_info_3 = "S15B1B1LP48LLLIIP255IIIIIIIS20B1P259IIIIIIIIIIIIIIIIIIIIIIP20LIP259"
'****************************************************************
'* *
'* Special values and constants *
'* *
'****************************************************************
'*
'* Mask to be applied to svX_version_major in order to obtain
'* the major version number.
'*
Global Const MAJOR_VERSION_MASK = &HF
'*
'* Bit-mapped values for svX_type fields. X = 1, 2 or 3.
'*
Global Const SV_TYPE_WORKSTATION = &H1
Global Const SV_TYPE_SERVER = &H2
Global Const SV_TYPE_SQLSERVER = &H4
Global Const SV_TYPE_DOMAIN_CTRL = &H8
Global Const SV_TYPE_DOMAIN_BAKCTRL = &H10
Global Const SV_TYPE_TIME_SOURCE = &H20
Global Const SV_TYPE_AFP = &H40
Global Const SV_TYPE_NOVELL = &H80
Global Const SV_TYPE_ALL = &HFFFFFFFF '* handy for NetServerEnum2 *
'*
'* Special value for svX_disc that specifies infinite disconnect
'* time. X = 2 or 3.
'*
Global Const SV_NODISC = &HFFFF '* No autodisconnect timeout enforced *
'*
'* Values of svX_security field. X = 2 or 3.
'*
Global Const SV_USERSECURITY = 1
Global Const SV_SHARESECURITY = 0
'*
'* Values of svX_hidden field. X = 2 or 3.
'*
Global Const SV_HIDDEN = 1
Global Const SV_VISIBLE = 0
'*
'* Values for parmnum parameter to NetServerSetInfo.
'*
Global Const SV_COMMENT_PARMNUM = 5
Global Const SV_DISC_PARMNUM = 10
Global Const SV_ALERTS_PARMNUM = 11
Global Const SV_HIDDEN_PARMNUM = 16
Global Const SV_ANNOUNCE_PARMNUM = 17
Global Const SV_ANNDELTA_PARMNUM = 18
Global Const SV_ALERTSCHED_PARMNUM = 37
Global Const SV_ERRORALERT_PARMNUM = 38
Global Const SV_LOGONALERT_PARMNUM = 39
Global Const SV_ACCESSALERT_PARMNUM = 40
Global Const SV_DISKALERT_PARMNUM = 41
Global Const SV_NETIOALERT_PARMNUM = 42
Global Const SV_MAXAUDITSZ_PARMNUM = 43
Global Const SVI1_NUM_ELEMENTS = 5
Global Const SVI2_NUM_ELEMENTS = 44
Global Const SVI3_NUM_ELEMENTS = 45
'*
'* Maxmimum length for command string to NetServerAdminCommand.
'*
Global Const SV_MAX_CMD_LEN = VBLMPATHLEN
'*
'* Masks describing AUTOPROFILE parameters
'*
Global Const SW_AUTOPROF_LOAD_MASK = &H1
Global Const SW_AUTOPROF_SAVE_MASK = &H2
'*****************************************************************
'** Microsoft Visual Basic LAN Manager Toolkit **
'** Copyright(c) Microsoft Corp., 1991 **
'*****************************************************************
'********************************************************************
'* *
'* About this file ... SERVICE.TXT *
'* *
'* This file contains information about the NetService APIs. *
'* *
'* Function protostructs. *
'* *
'* Data structure templates. *
'* *
'* Definition of special values. *
'* *
'* *
'* NOTE: You must include NETCONS.TXT before this file, since this*
'* file depends on values defined in NETCONS.TXT. *
'* *
'********************************************************************
'****************************************************************
'* *
'* Function prototypes *
'* *
'****************************************************************
Declare Function NetServiceControl% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszService$, ByVal fbOpCode_and_fbArg%, ByVal pbBuffer&, ByVal cbBuffer%)
'The fbOpCode and fbArg parameters are actually each
'unsigned char data types. Since VB does not have a
'comparable data type, these are grouped together and
'passed as an integer.
Declare Function NetServiceEnum% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcEntriesRead%, pcTotalAvail%)
Declare Function NetServiceGetInfo% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszService$, ByVal sLevel%, ByVal pbBuffer&, ByVal cbBuffer%, pcbTotalAvail%)
Declare Function NetServiceInstall% Lib "NETAPI.DLL" (ByVal pszServer$, ByVal pszService$, ByVal pszCmdArgs$, ByVal pbBuffer&, ByVal cbBuffer%)
' NetServiceStatus is not supported under MS-DOS.
'****************************************************************
'* *
'* Data structure templates *
'* *
'****************************************************************
Type service_info_0
svci0_name As String * SNLEN
End Type '* service_info_0 *
Global Const FMT_service_info_0 = "S15"
Type service_info_1
svci1_name As String * SNLEN '* service name *
svci1_status As Integer '* See status values below *
svci1_code As Long '* install code of service *
svci1_pid As Integer '* pid of service program *
End Type '* service_info_1 *
Global Const FMT_service_info_1 = "S15ILI"
Type service_info_2
svci2_name As String * SNLEN '* service name *
svci2_status As Integer '* See status values below *
svci2_code As Long '* install code of service *
svci2_pid As Integer '* pid of service program *
svci2_text As String * STXTLEN '* text area for use by services *
End Type '* service_info_2 *
Global Const FMT_service_info_2 = "S15ILIS63"
Type service_status
svcs_status As Integer '* See status values below *
svcs_code As Long '* install code of service *
svcs_pid As Integer '* pid of service program *
svcs_text As String * STXTLEN '* text area for use by services *
End Type '* service_status *
Global Const FMT_service_status = "ILIS63"
'****************************************************************
'* *
'* Function prototypes - VBLANMAN.DLL *
'* *
'****************************************************************
Declare Function VBTypeToBuffer% Lib "vblanman.dll" (ByVal Dest&, ByVal DestLen%, Src As Any, ByVal SrcLen%, ByVal FormatString$)
Declare Function BufferToVBType% Lib "vblanman.dll" (Dest As Any, ByVal DestLen%, ByVal Src&, ByVal SrcLen%, ByVal FormatString$)
Declare Function EnumBufferToVBArray% Lib "vblanman.dll" (Dest As Any, ByVal DestLen%, ByVal Src&, ByVal SrcLen%, ByVal FormatString$, ByVal NumEnts%)
Declare Function CreateLMBuffer& Lib "vblanman.dll" (ByVal FormatString$, ByVal Entries%, BufferSize%)
Declare Function FreeLMBuffer% Lib "vblanman.dll" (ByVal BufferPointer&)
Declare Function CFormatSize% Lib "vblanman.dll" (ByVal FormatString$, ByVal Flag%)
Declare Function VBFormatSize% Lib "vblanman.dll" (ByVal FormatString$, ByVal Flag%)
Declare Function lmerror$ Lib "vblanman.dll" Alias "LMError$" (ByVal ErrorCode%)
'****************************************************************
'* *
'* Special values and constants - VBLANMAN.DLL *
'* *
'****************************************************************
'*
'* Flag definitions for CFormatSize and VBFormatSize
'*
Global Const TOTAL_SIZE = 0 'Get total size (including var length strings)
Global Const FIXED_LEN_SIZE = 1 'Get fixed length size (no var length strings)
'*
'* Format strings for basic data types
'*
Global Const FMT_INTEGER = "I"
Global Const FMT_LONG = "L"
Global Const FMT_STRING = "S"
Global Const FMT_POINTER = "P"
'###################################################
' End of the includes for the wrappers
Global Const NERR_Success = 0 '* Success *
Global Const ERROR_MORE_DATA = 234 '* Additional data is available. *
Global msg As String
Global StartUpDir As String
' MsgBox parameters
Global Const MB_OK = 0 ' OK button only
Global Const MB_OKCANCEL = 1 ' OK and Cancel buttons
Global Const MB_ABORTRETRYIGNORE = 2 ' Abort, Retry, and Ignore buttons
Global Const MB_YESNOCANCEL = 3 ' Yes, No, and Cancel buttons
Global Const MB_YESNO = 4 ' Yes and No buttons
Global Const MB_RETRYCANCEL = 5 ' Retry and Cancel buttons
Global Const MB_ICONSTOP = 16 ' Critical message
Global Const MB_ICONQUESTION = 32 ' Warning query
Global Const MB_ICONEXCLAMATION = 48 ' Warning message
Global Const MB_ICONINFORMATION = 64 ' Information message
Global Const MB_DEFBUTTON1 = 0 ' First button is default
Global Const MB_DEFBUTTON2 = 256 ' Second button is default
Global Const MB_DEFBUTTON3 = 512 ' Third button is default
' MsgBox return values
Global Const IDOK = 1 ' OK button pressed
Global Const IDCANCEL = 2 ' Cancel button pressed
Global Const IDABORT = 3 ' Abort button pressed
Global Const IDRETRY = 4 ' Retry button pressed
Global Const IDIGNORE = 5 ' Ignore button pressed
Global Const IDYES = 6 ' Yes button pressed
Global Const IDNO = 7 ' No button pressed
Global Const ApplicationName = "Service Installer"
Global Const TRUE = -1
Global Const FALSE = 0
Global Const UNCHECKED = 0 ' 0 - Unchecked
Global Const CHECKED = 1 ' 1 - Checked
Global Const GRAYED = 2 ' 2 - Grayed
Declare Function WinHelp% Lib "User" (ByVal hwnd%, ByVal HELPFILE$, ByVal wCommand%, ByVal dwData&)
Global Const HELPFILE$ = "\install.hlp"
Global Const HELP_CONTEXT = 1 ' Display topic in ulTopic
Global Const HELP_QUIT = 2 ' Terminate help
Global Const HELP_INDEX = 3 ' Display index
Global Const HELP_HELPONHELP = 4 ' Display help on using help
Global Const HELP_SETINDEX = 5 ' Set the current Index for multi index help
Global Const HELP_KEY = &H101 ' Display topic for keyword in offabData
Global Const HELP_MULTIKEY = &H201